[
	cnt = cnt + 1
	jmp cnt > 20
	rLen = int(rnd * 10) + 2
	b "
	cnt2 = 0
	[
		cnt2 = cnt2 + 1
		jmp cnt2 > rLen
		rChar = int(rnd * 26) + 65
		rStr chr rChar
		b & b, rstr
	]
	set AstringS, cnt, b
	r = int(rnd * 100 * 100)
	set AstringN, cnt, r
	loc cnt, 1
	; b
	row = cnt + 21
	loc row, 1
	; r
]
saSort a$Sort AstringS
sdSort d$Sort AstringS
naSort a#sort AstringN
ndSort d#Sort AstringN
cnt = 0
[
	+= cnt,1
	jmp cnt > 20
	get sa, saSort, cnt
	get sd, sdSort, cnt
	get na, naSort, cnt
	get nd, ndSort, cnt
	at 20, cnt
	; sa
	at 40, cnt
	; sd
	row = cnt + 21
	at 20, row
	; na
	at 40, row
	; nd
]
Zzz
